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; Detailed Current Edit History 
= WRITE DIRECT formatted 


Page 


1 
EP-19 FORRTL.SRCJFORWRITDF .MAR; 1 (1) 


-TITLE FORSWRITE_DF - oor int for FORTRAN WRITE praest FORMATTED 
SIDENT § /1-012/ File: FORWRITDF.MAR Edit: JAW! 


SRAAAASHSAES TATA AAA TAK EKER AAAAARARAAHAAAAAAAARAERAAAEAAEAAAAAAAEAAAAAAAAAAAAAE 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT eGORPORATION, ° MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERV 


THIS SOFTWARE fs utes weet A LICENSE AND MAY BE USED AND og ba 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH Th care AND WITH THE 
INCLUSION OF THE ABOVE gtd NOTICE. THIS SOFT WARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 

a7 d 
® ® 
o ® 
® ® 
® ® 
*® * 
® ® 
® ® 
:® ® 
s® TRANSFERRED. . 
** ® 
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:® ® 
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*® ® 
-* * 
2@ o 
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OOooooo ) 
SCoOSOSCSCOCOSOSSCOSOSOSOOOCOOOOOOOOOOOO 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
erpponat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


LARA RARASASSASASAALASALALASASALESELESER ESAS ALES ERE SEER REESE RSA RES EERE EERE SE 


"FACILITY: FORTRAN Support Library - user callable 
ABSTRACT: 


This module contains the entry point for the FORTRAN 
WRITE DIRECT FORMATTED 1/0 statement. It is simp ply 

a call to FORS$SIO_BEG with bits in RO which describe the 
narennten List. FORSSIO_BEG interprets the parameters. 


MAINTENANCE NOTE: 
The transfer vector (RTLVECTOR+ALLGBL) must have the following: 


. TRANSFER FORSWRITE_DF 

. MASK FORSS$!0_ BEG 

BRwW FORSWRITE_DF+2 

This puts the correct mask in entry vector. thet is FORS$IO_BEG entry mask. 


Furthermore this module must only use RO an 
since any other register might not be in the entry mask for FORS$SIO_BEG. 


OOOCOCCOSCOSOOCOSOOSOSOSOOSOSOSOOSOOOSOOOOOOOO 


SOOOoCOCCOoOooOoOoOooooooooSe 
SOOOCOCOCOCOCOOCOCOCCOCO SOOO OOOCOO OOOO OO OOOO OOOO OOOOOOOOOOO: 


ENVIRONMENT: User access mode; mixture of AST level or not 
AUTHOR: Richard B. Grove, CREATION DATE: 28-May-78 


MODIFIED BY: 
Ks Hastings, 29-July-78 


FAN OQ ODNANE WN SO ODNAUE WN 9 OD NAU EWN 0 DOONAN EW OUOONOU ES Wh 


ee ee ee ete eee et ae Pete Se Se ee Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 


DUE BE BBE EEE PAW nonorononononononuny 3 2 2 
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~SBTTL HISTORY 3; Detailed Current Edit History 


= ent 
HISTO 


NO 


Edit History for Version 1 


Add comment > ag vectors. TNH 23-June-78 
Pass arg in RO, not ROR, add comments. TNH 29-July-78 
Update version number and copyright notice. JBS 1 sores 
Change statement type symbols to be LUBSK... JBS 07-DEC-78 
Change statement type symbols to be ISBSK..._ JBS 11-DEC-78 
Add to the PSECT directive. JBS 22-DEC-78 
Add FORSREAD_KF, FORSREAD_KO, FORSREWRITE SF, FORSREWRITE_SO, 
FORSREAD_IF, FORSREAD 10, FORSWRITE_IF, FORSWRITE_10, 
FORSREAD KY FORSREWRITE_SU, 
SBL e-Ray- $79 
1-006 - Remove all entry petote that need object time formatting, 

utting them in FORSENTRY_OBJ so that we can arrange to 

oad the format compiler only when it is needed. 

JBS 26-JUN-197 
1-007 = Remove entry point FORSENCODE_MF; we will code a new module 

for it and FORS$IO_BEG, to see how much 1/0 initiation time 

improves. JBS 02-JUL-1979 
1-008 - Do Likewuse for FORSREAD_DU and FORSWRITE_DU. JBS 03-JUL-1979 
1-009 = Remove all entry points except FORSWRITE_ BF; each of the 

others gets its own module so we can selectively load 

the ~ geen | UDF and REC modules. JBS 09-JUL-1979 
1-010 = Correct some rae in the references to UDF and REC 

levels. JBS 12-JUL-1979 
1-011 - New parameter format for FORS$IO_BEG. SBL 5-Dec-1979 
1-012 - Change BRW FORS$IO_BEG+2 to JMP G*FORSSIO_BEG+2. JAW 21-Feb-1981 
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«SBTTL DECLARATIONS 
; INCLUDE FILES: 

SFORPAR ; Defire inter-module FORTRAN symbols 
SISBDEF : Define statement type symbols 


EXTERNAL SYMBOLS: 


-DSABL GBL ; Declare all external symbols 
-EXTRN FORSSIO_BEG ; common 1/0 statement processing 


i+ 

; The poten Be sererenese are to make sure the necessary UDF and REC 
: modules are load ese are i I routines which are called through 
: _the dispatch eet ss Pg FORSSDISPAT 

cs .EXTRN FORSSUDF_WFO, FORSSUDF_WF1, FORSSUDF_wF9 

-EXTRN FORSSREC_WDO, > FORSSREC—W D1, FORSSREC_WD9 

: MACROS: 

: NONE 

> PSECT DECLARATIONS: 


0000 -PSECT _FORSCODE PIC,USR,CON,REL,LCL,SHR,EXE,RD,NOWRT ,LONG 


: EQUATED SYMBOLS: 


OWN STORAGE: 
NONE 


PoRORoNONONOUNONOND 4 2 QO ODD D0 000.0000000.000MM0 


OONA ME WIN SO ODNA NE WIN @ OOO NOAU EWN SO ODNAUE UT" OOOn 
. 


SOSCOCOCSOSOOSCOSOSOSOOCOOOCOSCSOSCOOSOOSOSOSOOOSOOOOoOoOOo 
SOOSCOCOCOOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOOSOSOSOOOOSOSoSS 
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-SBTTL FORSWRITE_DF = WRITE DIRECT formatted 


p++ 
; FUNCTIONAL DESCRIPTION: 


Initialize the FORTRAN 1/0 system to perform 
a WRITE DIRECT formatted 1/0 statement. 


CALLING SEQUENCE: 
CALL FORSWRITE_DF (unit.rl.v, form ys Simmer 
, err_adr.j.r C, end_adr.j.rJj) 
; INPUT PARAMETERS: 
unit.rl.v Logical unit number 
format_adr.mbu.ra adr. of tonpited format byte array 
optional ERR= address 
end_adr.j.r optional END= address 
IMPLICIT INPUTS: 


: NONE except those used by FORS$I0_BEG. 
> OUTPUT PARAMETERS: 

; NONE 

: IMPLICIT OUTPUTS: 

; NONE except those left by FORS$IO_BEG. 
; COMPLETION CODES: 

; NONE 

; SIDE EFFECTS: 


3 wh i Re 
NONE except those of FORS$I0_BEG. 


SOSOOCOCSOSOSOSOSOSOSOOSSOOSOSOOSOSOOSOSOSSO 


SOOSCOSCSOOSOSOSOSOSSOOoOoOoCOSoOOoOSoOSoOSoOSoOSoOOoOSoS 


ooooo 


0000° FORSWRITE _DF:: MASK FORSSIO_BEG 
50 05 9A MOVZBL #ISBSK_ST_TY_WDF, RO 3 Statement type 
00000002'GF 17 JMP G*FORSS10_-BEG+2 ; branch past call mask 


tt se ts ss ss a 4 ss a 3 a tn i ss ts 2 as as ts st 


SIN NSS NSD. DD DD DDD DAD TT Be Be BS BB BB EE EAI 
CONAUNE WIN $$ S OO NAME WIN 9 OD NA UNE WW 0 OD NO NEU CO OO NOUS Ur 


SSSSSsSsSsSsSsSsssssssssssssssssssss 


Soooooo 


-END 
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Symbol table 6-SEP-1984 :01: FORRTL.SRCIJFORWRITDF .MAR;1 (4) 
FORSSIO BEG eeneeeee =X 
FORSSREC_wDO eeeeeeee 
FORSSREC_WD1 eeeeeeee 
FORSSREC _WD9 eeneeere 8 
bake a eeeeerer x 
FORSSUDF _WF eererere =X 
FORSSUDF “WFO grereree X 
FORSWRITE_DF 444! RG 1 
1SBSK_ST_TY_wOF = 00000 

bow nee nema eae anwe + 

: Psect synopsis ! 

Goeeeeeeeceecean wee me ye 
PSECT name Allocation PSECT No. Attributes 
— 4 00000000 < 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
_FORSCODE 00000008 ¢ 11.) O1¢ 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 

teem meer meaner en ee me ec mS 
H Performance indicators ; 

Phase Page faults CPU Time Elapsed Time 
Initialization 32 00:00:00.09 00:00:00 - 2 
Command processing 118 ab $4 BEd B8:88 8 53 
Pass 127 0:00:01.25 Bo? R0: 4.27 
Symbol table sort 0 00:00:00.19 0:00:00.41 
Pass 2 47 00: Ht et BF RO 0s +80 
Symbol table output 3 B23 $: 0.0 ee $e “Bs 
Psect synopsis output 2 8: :00.0 00:00:00.0 
Cross-reference output 0 00:00:00.0 es Be So 
Assembler run totals 331 00:00:02.6 00:00:12.12 


The working set Limit was 1050 pages. 

6684 bytes (14 pages) of virtual memory were used to buffer the intermediate code. 

There were 20 pages of symbol table space allocated to hold 187 non-local and 0 local symbols. 
178 source Lines were read in Pass 1, produc tng 8 object records in Pass 2. 

9 pages of virtual memory were used to define 2 macros. 


+ + 
H Macro Library statistics : 


Macro library name Macros defined 
5 ge SDUACE: FORRTL rt ot re ty 

$255$0UA28: (SYSLIBISTARLET .MLB; 

TOTALS (all Libraries) 


183 GETS were required to define 2 macros. 
There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:FORWRITDF /OBJ=OBJ$:FORWRITDF MSRC$:FORWRI TDF /UPDATE=(ENHS$:FORWRITDOF)+LI 


~~ 
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PROPRIETARY 
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